home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
dspice0s
/
getcje.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-21
|
798b
|
34 lines
/* getcje.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/* Common Block Declarations */
struct {
integer maxtim, itime, icost;
} cje_;
#define cje_1 cje_
/*< subroutine getcje >*/
/* Subroutine */ int getcje_()
{
static doublereal xtime;
extern /* Subroutine */ int second_();
/*< implicit double precision (a-h,o-z) >*/
/* spice version 2g.6 sccsid=cje 3/15/83 */
/*< common /cje/ maxtim,itime,icost >*/
/*< call second(xtime) >*/
second_(&xtime);
/*< itime=xtime >*/
cje_1.itime = (integer) xtime;
/*< return >*/
return 0;
/*< end >*/
} /* getcje_ */